home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)abb.d64 / rescue_centauri (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  16KB  |  613 lines
  1. 0 REM THIS IS RESCUE! BY ALEX KLOIAN.   WRITTEN MOSTLY ON THE PET. (1982-83)
  2. 1 POKE 53281,6
  3. 2 SO=54272:FORI=SOTOSO+24:POKEI,0:NEXT:PRINT"[147]"CHR$(14):GOSUB59000
  4. 3 POKE53280,0:POKE53281,0:DIMA(12),A$(12)
  5. 4 REM REWRITTEN FOR THE C-64. 1984-1985
  6. 5 PF=0:POKESO+5,136:POKESO+6,24:POKESO+24,15
  7. 6 WP=25:POKESO+3,3:POKESO+2,200:H$="[201]'M HIDING."
  8. 10 B$=CHR$(142)+"[206][183][197][196][195][198][210][175][157][157][157][157][157][157][157][157][205][175][210][198][195][196][197][183]"
  9. 15 PRINT"[147]":FORI=1TO9:PRINT:NEXT
  10. 20 PRINTTAB(10)"[210]ESCUE ON THE [195]ENTAURI"
  11. 30 FORI=1TO2000:NEXT:PRINT:PRINT""
  12. 40 INPUT"[200]OW MANY ALIENS IN THE STATION (10-50)";A
  13. 45 A1=A:IFA<10ORA>50 THEN40
  14. 50 DIML(A+1),C(24),B(24)
  15. 60 FORI=1TOA
  16. 70 L(I)=INT(24*RND(1))+1:IFL(I)=17THEN70
  17. 80 NEXT
  18. 90 LC=30
  19. 100 PL=L(1)
  20. 120 P=17:KI=3
  21. 200 BU=0:TP=TP+1:FORI=1TO200:NEXT:PRINT"[147]":GOSUB3000:IFIT>0THENGOSUB10000
  22. 201 IFA1=0ANDTR=0ANDIT=0THENPRINT"[217]OU KILLED ALL THE ALIENS!":SC=SC+1000:GOTO50105
  23. 202 IFRND(1)>.7ANDH=1THENH=0:PRINT"[156][201]'M NOT HIDDEN ANYMORE."
  24. 203 PRINT"[159][204]ASER CHARGES LEFT:"LC:IFC(P)>1THENPRINT"[212]HERE ARE"C(P)"CORPSES HERE."
  25. 204 PRINT"";:IFC(P)=1THENPRINT"[212]HERE IS A CORPSE HERE."
  26. 205 IFP>10THEN1090
  27. 207 IFP<>1THEN260
  28. 210 PRINT"[217]OU ARE IN AIRLOCK #1.  [197]XITS: [158][211]."
  29. 215 GOSUB5000
  30. 220 GOSUB61000
  31. 230 IFA$="S"THENP=6
  32. 235 IFA$="H"THENH=1:PRINTH$
  33. 240 GOTO200
  34. 260 IFP<>2THEN330
  35. 270 PRINT"[217]OU ARE IN STOREROOM #3.  [197]XITS: [158][197]."
  36. 275 GOSUB5000
  37. 280 GOSUB61000
  38. 290 IFA$="E"THENP=6
  39. 300 IFA$="H"THENH=1:PRINTH$
  40. 310 GOTO200
  41. 330 IFP<>3THEN480
  42. 340 PRINT"[217]OU ARE IN THE ENGINE ROOM.  [197]XITS: [158][215].  [158][211]ABOTAGE SHIP."
  43. 350 GOSUB5000:GOSUB61000
  44. 360 IFA$="W"THENP=6
  45. 370 IFA$="H"THENH=1:PRINTH$
  46. 380 IFA$="S"ANDTY=1ANDIT=0THENGOSUB420
  47. 390 IFA$="S"ANDTY<>1THENPRINT"YOU DON'T HAVE THE TOOLS, YET."
  48. 400 GOTO200
  49. 420 TS=TS+1:SS=INT(10*RND(1))
  50. 430 IFTS<SSTHENPRINT"[201] NEED MORE TIME."
  51. 440 IFTS>=SSTHENIT=INT(RND(1)*9)+5:PRINT"[212]HE ENGINES WILL IMPLODE IN"IT"TURNS!"
  52. 450 FORI=1TO200:NEXT
  53. 460 RETURN
  54. 480 IFP<>4THEN550
  55. 490 PRINT"[217]OU ARE IN STOREROOM #4.  [197]XITS: [193]IR SHAFT #[158]1. [158][211]."
  56. 500 GOSUB5000:GOSUB61000
  57. 510 IFA$="1"THENP=5
  58. 520 IFA$="S"THENP=16
  59. 530 IFA$="H"THENH=1:PRINTH$
  60. 540 GOTO200
  61. 550 IFP<>5THEN620
  62. 560 PRINT"[217]OU ARE IN AIR SHAFT #1.  [197]XITS: [158][197]. [158][215]."
  63. 570 GOSUB5000:GOSUB61000
  64. 580 IFA$="E"THENP=6
  65. 590 IFA$="W"THENP=4
  66. 600 IFA$="H"THENH=1:PRINTH$
  67. 610 GOTO200
  68. 620 IFP<>6THEN720
  69. 630 PRINT"[217]OU ARE IN HALLWAY #1.  [197]XITS: [158][206]. [158][211]. [158][197]. [158][215]. ";
  70. 635 PRINT"[193]IR SHAFT #[158]1. [193]IR SHAFT #[158]2.    [158][195]YCLE AIRLOCK."
  71. 640 GOSUB5000:GOSUB61000
  72. 650 IFA$="H"THENH=1:PRINTH$
  73. 660 IFA$="N"THENP=1
  74. 670 IFA$="S"THENP=15
  75. 682 IFA$="W"THENP=2
  76. 690 IFA$="E"THENP=3
  77. 700 IFA$="1"THENP=5
  78. 710 IFA$="2"THENP=7
  79. 711 IFA$<>"C"THEN200
  80. 712 POKESO+6,12:POKESO+1,30:POKES0,60:POKESO+4,129:POKESO+5,136
  81. 713 FORK=1TO100:NEXT:POKESO+4,128:PRINT"[215]HOOOOOSH!":FORI=1TOA
  82. 714 IFL(I)=1THENPRINT"[203]ILLED A BUG!":L(I)=0:A1=A1-1:SC=SC+50:GOSUB3290
  83. 715 IFPL=1THENPRINT"[203]ILLED THE PRISONER!":SC=SC-500:GOTO50105
  84. 716 NEXT
  85. 717 GOTO200
  86. 720 IFP<>7THEN790
  87. 730 PRINT"[217]OU ARE IN AIR SHAFT #2.  [197]XITS: [158][197]. [158][215]."
  88. 740 GOSUB5000:GOSUB61000
  89. 750 IFA$="W"THENP=6
  90. 760 IFA$="E"THENP=8
  91. 770 IFA$="H"THENH=1:PRINTH$
  92. 780 GOTO200
  93. 790 IFP<>8THEN860
  94. 800 PRINT"[217]OU ARE IN THE MAINTENANCE ROOM.  [197]XITS: [193]IR SHAFT #[158]2. [158][211]. [158][212]A";
  95. 805 PRINT"KE TOOLS."
  96. 810 GOSUB5000:GOSUB61000
  97. 820 IFA$="T"ANDTY<>1THENTY=1:PRINT"[207]K, [201] HAVE THE TOOLS."
  98. 830 IFA$="2"THENP=7
  99. 835 IFA$="H"THENH=1:PRINTH$
  100. 840 IFA$="S"THENP=9
  101. 850 GOTO200
  102. 860 IFP<>9THEN980
  103. 870 PRINT"[217]OU ARE IN HALLWAY #2.  [197]XITS: [158][206]. [158][211]. [158][197]. [158][215]."
  104. 880 GOSUB5000:GOSUB61000
  105. 890 IFA$="H"THENH=1:PRINTH$
  106. 900 IFA$="N"THENP=8
  107. 910 IFA$="S"THENP=11
  108. 920 IFA$="E"THENP=10
  109. 930 IFA$="W"THENP=15
  110. 935 GOTO200
  111. 980 IFP<>10THEN1090
  112. 990 PRINT"[217]OU ARE IN SHUTTLE BAY #2.  [197]XITS: [158][215]. [158][212]AKE OFF IN SHUTTLE."
  113. 1000 GOSUB5000:GOSUB61000
  114. 1010 IFA$="H"THENH=1:PRINTH$
  115. 1020 IFA$="W"THENP=9
  116. 1030 IFA$="T"ANDS2=0THEN1050
  117. 1035 IFA$="T"ANDS2=1THENPRINT"[201]T ISN'T HERE ANY MORE!"
  118. 1040 GOTO200
  119. 1050 Q=INT(RND(1)*3)+1
  120. 1060 IFQ<>1THENPRINT"[204]ETS SEE, WHERE IS THAT KEY?":FU=1:FORM=1TO800:NEXT:GOTO200
  121. 1065 IFFU=1THENPRINT"[200]ERE'S THE LITTLE MOTHER!  [195][204][201][195][203]!"
  122. 1070 PRINT"[204]AUNCHING SHUTTLE!"
  123. 1080 GOTO50000
  124. 1090 IFP<>11THEN1160
  125. 1100 PRINT"[217]OU ARE IN STOREROOM #2.  [197]XITS: [193]IR SHAFT #[158]4. [158]N."
  126. 1110 GOSUB5000:GOSUB61000
  127. 1120 IFA$="H"THENH=1:PRINTH$
  128. 1130 IFA$="N"THENP=9
  129. 1140 IFA$="4"THENP=20
  130. 1150 GOTO200
  131. 1160 IFP<>12THEN1220
  132. 1170 PRINT"[217]OU ARE IN THE FREEZER.  [197]XITS: [158][211]."
  133. 1175 IFPL=12THENPRINT"[212]HE PRISONER IS HERE AND HE IS FROZEN!"
  134. 1180 GOSUB5000:GOSUB61000
  135. 1190 IFA$="H"THENH=1:PRINTH$
  136. 1200 IFA$="S"THENP=15
  137. 1210 GOTO200
  138. 1220 IFP<>13THEN1320
  139. 1230 PRINT"[217]OU ARE IN THE ARMS ROOM.  [197]XITS: [158][211]. [158][210]ECHARGE LASER PACK."
  140. 1240 GOSUB5000:GOSUB61000
  141. 1250 IFA$="H"THENH=1:PRINTH$
  142. 1260 IFA$="S"THENP=15
  143. 1270 IFA$<>"R"THEN200
  144. 1280 IFLC>45THENPRINT"[204]ASER IS FULLY CHARGED!":GOTO200
  145. 1290 LC=LC+10:PRINT"[210]ECHARGING LASER.":KI=3
  146. 1300 IFLC>45THENPRINT"[204]ASER FULLY CHARGED."
  147. 1310 GOTO200
  148. 1320 IFP<>14THEN1390
  149. 1330 PRINT"[217]OU ARE IN THE COMPUTER ROOM.  [197]XITS: [158][206]. [158][205]AP OF SHIP."
  150. 1340 GOSUB5000:GOSUB61000
  151. 1350 IFA$="H"THENH=1:PRINTH$
  152. 1360 IFA$="N"THENP=15
  153. 1365 IFA$="M"THENGOSUB2500
  154. 1370 GOTO200
  155. 1390 IFP<>15THEN1570
  156. 1400 PRINT"[217]OU ARE IN THE COMMAND CENTER.  [197]XITS: [158][206]. [158][211]. [158][197]. [158][215]. ";
  157. 1402 PRINT"[158][198]REEZER. [158][193]RMS ROOM. [158][195]OMPUTER ROOM. [158][212]URN FREEZER ([207][206]/[207][198][198])"
  158. 1410 GOSUB5000:GOSUB61000
  159. 1420 IFA$="H"THENH=1:PRINTH$
  160. 1430 IFA$="N"THENP=6
  161. 1440 IFA$="S"THENP=21
  162. 1450 IFA$="E"THENP=9
  163. 1460 IFA$="W"THENP=16
  164. 1470 IFA$="F"THENP=12
  165. 1480 IFA$="A"THENP=13
  166. 1490 IFA$="C"THENP=14
  167. 1500 IFA$<>"T"THEN200
  168. 1510 IFF=1THENF=0:PRINT"[198]REEZER OFF.":GOTO1525
  169. 1520 IFF=0THENF=1:PRINT"[198]REEZER ON."
  170. 1525 IFF=0THEN200
  171. 1530 FORI=1TOA
  172. 1540 IFL(I)=12THENPRINT"[217]OU FROZE A BUG!":L(I)=0:SC=SC+25:C(12)=C(12)+1:A1=A1-1
  173. 1550 NEXT
  174. 1555 IFPL=12THENPRINT"[217]OU HAVE RECOVERED THE PRISONER!":PL=0:PF=1
  175. 1557 FORJ=1TO500:NEXT
  176. 1560 GOTO200
  177. 1570 IFP<>16THEN1670
  178. 1580 PRINT"[217]OU ARE IN HALLWAY #4.  [197]XITS: [158][206]. [158][215]. [158][211]. [158][197]."
  179. 1590 GOSUB5000:GOSUB61000
  180. 1600 IFA$="H"THENH=1:PRINTH$
  181. 1610 IFA$="N"THENP=4
  182. 1620 IFA$="S"THENP=18
  183. 1630 IFA$="E"THENP=15
  184. 1640 IFA$="W"THENP=17
  185. 1650 GOTO200
  186. 1670 IFP<>17THEN1750
  187. 1680 PRINT"[217]OU ARE IN SHUTTLE BAY #1.  [197]XITS: [158][197].   [158][212]AKE OFF IN SHUTTLE."
  188. 1690 GOSUB5000:GOSUB61000
  189. 1700 IFA$="H"THENH=1:PRINTH$
  190. 1710 IFA$="E"THENP=16
  191. 1720 IFA$<>"T"THEN200
  192. 1725 IFS1=1THENPRINT"[201]T ISN'T HERE ANY MORE!":GOTO200
  193. 1730 PRINT"[211]HUTTLE CRAFT LAUNCHED!"
  194. 1740 GOTO50000
  195. 1750 IFP<>18THEN1840
  196. 1760 PRINT"[217]OU ARE IN THE SCANNER ROOM.  [197]XITS: [158][206]. ";
  197. 1765 PRINT"[193]IR SHAFT #[158]3. [158][211]CAN SHIP FOR ALIENS."
  198. 1770 GOSUB5000:GOSUB61000
  199. 1780 IFA$="H"THENH=1:PRINTH$
  200. 1790 IFA$="N"THENP=16
  201. 1800 IFA$="3"THENP=19
  202. 1810 IFA$<>"S"THEN200
  203. 1820 GOSUB3590
  204. 1830 GOTO200
  205. 1840 IFP<>19THEN1910
  206. 1850 PRINT"[217]OU ARE IN AIR SHAFT #3.  [197]XITS: [158][215]. [158][197]."
  207. 1860 GOSUB5000:GOSUB61000
  208. 1870 IFA$="H"THENH=1:PRINTH$
  209. 1880 IFA$="W"THENP=18
  210. 1890 IFA$="E"THENP=21
  211. 1900 GOTO200
  212. 1910 IFP<>20THEN1980
  213. 1920 PRINT"[217]OU ARE IN AIR SHAFT #4.  [197]XITS: [158][215]. [158][197]."
  214. 1930 GOSUB5000:GOSUB61000
  215. 1940 IFA$="H"THENH=1:PRINTH$
  216. 1950 IFA$="W"THENP=21
  217. 1960 IFA$="E"THENP=11
  218. 1970 GOTO200
  219. 1980 IFP<>21THEN2130
  220. 1990 PRINT"[217]OU ARE IN HALLWAY #3.  [197]XITS: [158][206]. [158][211]. [158][197]. [158][215]. ";
  221. 1994 PRINT"[193]IR SHAFT #[158]4. [193]IR SHAFT #[158]3. [158][195]YCLE AIRLOCK."
  222. 2000 GOSUB5000:GOSUB61000
  223. 2010 IFA$="H"THENH=1:PRINTH$
  224. 2020 IFA$="N"THENP=15
  225. 2030 IFA$="S"THENP=24
  226. 2040 IFA$="E"THENP=23
  227. 2050 IFA$="W"THENP=22
  228. 2060 IFA$="4"THENP=20
  229. 2070 IFA$="3"THENP=19
  230. 2080 IFA$<>"C"THEN200
  231. 2090 POKESO+6,12:POKESO+1,30:POKES0,60:POKESO+4,129:POKESO+5,136
  232. 2092 FORK=1TO100:NEXT:POKESO+4,128
  233. 2093 PRINT"[215]HOOOOOSH!":FORI=1TOA
  234. 2095 IFL(I)=24THENPRINT"[203]ILLED A BUG!":L(I)=0:A1=A1-1:SC=SC+50:GOSUB3290
  235. 2100 IFPL=24THENPRINT"[203]ILLED THE PRISONER!":SC=SC-500:GOTO50105
  236. 2110 NEXT
  237. 2120 GOTO200
  238. 2130 IFP<>22THEN2190
  239. 2140 PRINT"[217]OU ARE IN STOREROOM #1.  [197]XITS: [197]."
  240. 2150 GOSUB5000:GOSUB61000
  241. 2160 IFA$="H"THENH=1:PRINTH$
  242. 2170 IFA$="E"THENP=21
  243. 2180 GOTO200
  244. 2190 IFP<>23THEN2290
  245. 2200 PRINT"[217]OU ARE IN THE SICK BAY.  [197]XITS: [215]. @[195]OVER WOUNDS."
  246. 2210 GOSUB5000:GOSUB61000
  247. 2230 IFA$="W"THENP=21
  248. 2235 IFA$="H"THENH=1:PRINTH$
  249. 2240 IFA$<>"C"THEN200
  250. 2250 IFWP>34THEN200
  251. 2255 H7=1:GOTO2261
  252. 2260 PRINT"[200]EALING UNDERWAY.":WP=WP+5:SC=SC-25:IFWP>25THENWP=25
  253. 2261 PRINT"[205]EDICAL CONDITION: ";
  254. 2262 IFWP=25THENPRINT"[199][210][197][197][206]."
  255. 2264 IFWP<25ANDWP>9THENPRINT"[158][217][197][204][204][207][215]."
  256. 2266 IFWP<10THENPRINT"[210][197][196]."
  257. 2268 IFH7=1THENH7=0:GOTO2260
  258. 2270 FORI=1TO1000:NEXT
  259. 2280 GOTO200
  260. 2290 REM
  261. 2300 PRINT"[217]OU ARE IN AIRLOCK #2.  [197]XITS: [158][206]."
  262. 2310 GOSUB5000:GOSUB61000
  263. 2320 IFA$="H"THENH=1:PRINTH$
  264. 2330 IFA$="N"THENP=21
  265. 2340 GOTO200
  266. 2500 PRINT"[147]";CHR$(142);"SPACE STATION CENTAURI:"
  267. 2505 PRINT:PRINT"           AIRLOCK #2"
  268. 2510 PRINT"             [213][196][184][196][201]"
  269. 2515 PRINT"             [194]   [194]"
  270. 2520 PRINT"             [207]   [208]"
  271. 2525 PRINT"            [206]HALL1[205]"
  272. 2530 PRINT" SHUTTLE [206][163][163]       [163][163][205]SHUTTLE"
  273. 2535 PRINT"      [207][183][183]     [206] [205]     [183][183][208]"
  274. 2537 PRINT"      [181]HALL4  COM  HALL2[182]"
  275. 2540 PRINT"      [204][175][175]     [205] [206]     [175][175][186]"
  276. 2545 PRINT"    #1   [205][164][164]       [164][164][206]   #2   "
  277. 2550 PRINT"            [205]HALL3[206]"
  278. 2555 PRINT"             [204]   [186]"
  279. 2560 PRINT"             [194]   [194]"
  280. 2565 PRINT"             [202][195][162][195][203]"
  281. 2567 PRINT"           AIRLOCK #1"
  282. 2570 IFS1=0THENPRINT"[158]";TAB(4)"[213][195][157][157][194]=[157][157][202][195]";
  283. 2580 IFS2=0THENPRINT"";TAB(25);"[195][201][157][157]=[194][157][157][195][203]";
  284. 2590 IFV>0THENPRINT"";TAB(3);B$;
  285. 2595 IFV>1THENPRINT"[157][157][157][157][157][157][157][157]";B$;
  286. 2600 IFV>2THENPRINT"[145][145][145]";TAB(22);B$;
  287. 2610 IFV>3THENPRINT"[157][157][157][157][157][157][157][157][157][157][157][157]";B$;
  288. 2810 GETA1$:IFA1$=""THEN2810
  289. 2820 PRINTCHR$(14)"[147]":RETURN
  290. 3000 IFTR=0THENRETURN
  291. 3010 IFR1>4THENTR=0:RETURN
  292. 3020 TR=TR-1:IFTR>1THENRETURN
  293. 3030 IFTR=0THEN3040
  294. 3035 PRINT"[150][211]PACE STATION CENTAURI, REINFORCEMENTS  ARE ABOUT TO DOCK.":RETURN
  295. 3040 POKESO+5,155:POKESO+6,76:POKESO+4,129:FORI=1TO20:NEXT:POKESO+4,128
  296. 3050 PRINT"[150][210]EINFORCEMENTS HAVE DOCKED. [212]HE CAVALRY IS HERE GUYS.  ";
  297. 3060 IFA1=0THENPRINT"[199]UYS?  [217]OU THERE?  [193]H HU-MAN WE GOIN' KILL YO' ASS."
  298. 3070 PRINT""
  299. 3080 RE=INT(RND(1)*10)+(R1*4)+3:IFRE>(A-A1)THENRE=(A-A1)
  300. 3082 PRINT"[156][211]QUAD ONE: [212]AKE THE COMMAND CENTER."
  301. 3084 IFRE>5THENPRINT"[211]QUAD TWO: [211]EEK AND DESTROY!"
  302. 3086 IFRE>10THENPRINT"[158][211]QUAD THREE: [211]ECURE THE PRISONER!"
  303. 3088 IFRE>15THENPRINT"[211]QUAD FOUR: [208]ATROL THE BASE."
  304. 3090 FORM=1TOA
  305. 3095 IFL(M)=0ANDRE>0THENL(M)=21:A1=A1+1:RE=RE-1
  306. 3100 NEXTM
  307. 3110 V=V+1:K=0:FORM=1TOA:IFL(M)>0THENK=K+1
  308. 3115 NEXT:IFK<>A1THENSTOP
  309. 3200 RETURN
  310. 3290 POKESO+12,202:POKESO+13,44
  311. 3300 POKESO+8, 8 :POKESO+7,20:POKESO+11,33:FORK=1TO60:NEXTK:POKESO+11,32:RETURN
  312. 3590 SO=54272:POKESO+5,24:POKESO+6,78:POKESO+1,10:POKESO,99:POKESO+4,17
  313. 3600 FORI=1TO24:B(I)=0:NEXT:FORK=1TOA:IFL(K)=0THEN3607
  314. 3605 B(L(K))=B(L(K))+1
  315. 3607 NEXTK:POKESO+4,16
  316. 3610 PRINT"[147]";CHR$(142);
  317. 3700 PRINT"                [185][185][185][185][164][185][185][185][185]"
  318. 3705 PRINT"                [194]  [165] [170]  [194]"
  319. 3710 PRINT"                [194]  [204][166][186]  [194]"
  320. 3715 PRINT"                [207]  [219] [219]  [208]
  321. 3720 [153]"                (null)AND(null)SPC( SPC((null)ANDSQR"
  322. 3725 [153]"               (null) ANDAND(null) (null)ANDAND (null)"
  323. 3730 [153]"           ANDANDAND(null) (null)  (null)SPC((null)  (null) (null)ANDANDAND"
  324. 3735 [153]"          (null)   SPC((null)   THEN FN   (null)SPC(   (null)"
  325. 3740 [153]"     ANDANDANDAND(null)(null)ANDNOTANDSQRANDSQRSPC((null)SQR (null)SQRSPC((null)AND(null)ANDANDNOTSQR(null)ANDANDANDAND"
  326. 3745 [153]"    +    INT    ABS           INT    ABS    SGN"
  327. 3750 [153]"    ABS    INT    SQR           (null)    ABS    INT"
  328. 3755 [153]"    ABS    SPC(    SPC(           SPC(    SPC(    INT"
  329. 3760 [153]"    ABS    INT    (null)           (null)    ABS    INT"
  330. 3765 [153]"    THEN    INT    ABS           INT    ABS    FN"
  331. 3770 [153]"     USRUSRUSRUSR(null)SQRUSRSPC(USR(null)USRUSRUSRUSR(null) (null)(null)SPC((null)USR(null)USRUSRSPC((null)(null)USRUSRUSRUSR"
  332. 3775 [153]"          (null)   SPC((null)+++THEN FN   (null)SPC(   (null)"
  333. 3780 [153]"           USRUSRUSR(null) (null)++SQRSPC((null)  (null) (null)USRUSRUSR"
  334. 3785 [153]"               (null) USRUSR(null) (null)USRUSR (null)"
  335. 3790 [153]"                STEPUSR(null)SPC( SPC((null)USR(null)"
  336. 3795 [153]"                (null)  (null) (null)  SQR"
  337. 3800 [153]"                PEEK  (null)SPC((null)  PEEK"
  338. 3805 [153]"                PEEK  FN THEN  PEEK"
  339. 3810 [153]"                FREFREFREFRETAB(FREFREFREFRE"
  340. 3815 [140]:[129]K[178]1[164]24:[135]D,T:[153]"";:[139]D[178]0[167]3820
  341. 3816 [139]B(K)[179]1[167]3830
  342. 3817 [129]K1[178]1[164]D:[153]"";:[130]K1
  343. 3820 [139]B(K)[177]0[167][153][163]T);"(null)";
  344. 3830 [130]K:[153]"";[163]12);"SYS*";
  345. 3900 [161]A$:[139]A$[178]""[167]3900
  346. 3910 [153][199](14);"LOAD";
  347. 3990 [131] 1,20,3,18,3,22,7,12,5,16,4,20,5,24,7,28,11,28,11,33,15,28,7,17,7,23
  348. 3992 [131]15,23,11,20,11,12,11,7,15,12,17,16,17,24,18,20,19,18,19,22,21,20
  349. 4000 [153]"LOAD":[142]
  350. 5000 BU[178]0:[139]PL[178]P[167][153]"**(null)HE PRISONER IS HERE**"
  351. 5003 [129]I[178]1[164]A
  352. 5005 PR[178][181]([187](1)[172]6)[170]1
  353. 5006 [139]L(I)[178]0[167]5702
  354. 5007 L[178]L(I):[139][187](1)[179]A2[167]5700
  355. 5008 [139]L[178]P[175]H[179][177]1[167]5700
  356. 5010 [145]L[137]5020,5060,5100,5140,5190,5220,5260,5285,5310,5337,5355,5373,5390
  357. 5011 [145](L[171]13)[137]5405,5412,5460,5487,5505,5525,5545,5565,5578,5584,5590
  358. 5020 [139]PR[179]4[167]L[178]1
  359. 5030 [139]PR[177]3[167]L[178]6
  360. 5040 [137]5700
  361. 5060 [139]PR[179]4[167]L[178]2
  362. 5070 [139]PR[177]3[167]L[178]6
  363. 5080 [137]5700
  364. 5100 [139]PR[179]4[167]L[178]3
  365. 5110 [139]PR[177]3[167]L[178]6
  366. 5120 [137]5700
  367. 5140 [139]PR[179]3[167]L[178]4
  368. 5150 [139]PR[179]5[167]L[178]5
  369. 5160 [139]PR[177]4[167]L[178]16
  370. 5170 [137]5700
  371. 5190 [139]PR[179]3[167]L[178]5
  372. 5200 [139]PR[179]5[167]L[178]4
  373. 5205 [139]PR[177]4[167]L[178]6
  374. 5210 [137]5700
  375. 5220 [139]PR[178]1[167]L[178]1
  376. 5225 [139]PR[178]2[167]L[178]3
  377. 5230 [139]PR[178]3[167]L[178]7
  378. 5235 [139]PR[178]4[167]L[178]15
  379. 5240 [139]PR[178]5[167]L[178]5
  380. 5245 [139]PR[178]6[167]L[178]2
  381. 5250 [137]5700
  382. 5260 [139]PR[179]3[167]L[178]7
  383. 5265 [139]PR[179]5[167]L[178]6
  384. 5270 [139]PR[177]4[167]L[178]8
  385. 5275 [137]5700
  386. 5285 [139]PR[179]3[167]L[178]8
  387. 5290 [139]PR[179]5[167]L[178]7
  388. 5295 [139]PR[177]4[167]L[178]9
  389. 5300 [137]5700
  390. 5310 [139]PR[178]1[167]L[178]8
  391. 5315 [139]PR[178]2[167]L[178]10
  392. 5320 [139]PR[178]3[167]L[178]11
  393. 5325 [139]PR[178]4[167]L[178]15
  394. 5330 [137]5700
  395. 5337 [139]IT[177]0[175]S2[178]0[167]S2[178]1:L(I)[178]0:A1[178]A1[171]1:[153]"OPEN(null)LEFT$(null)(null)(null)(null)VAL #2 (null)ATN(null)(null)LENLEFT$VALSTR$":[137]5703
  396. 5340 [139]PR[177]3[167]L[178]9
  397. 5345 [137]5700
  398. 5355 [139]PR[179]3[167]L[178]9
  399. 5360 [139]PR[177]4[167]L[178]20
  400. 5365 [137]5700
  401. 5373 [139]L(1)[178]12[167]5700
  402. 5375 [139]PR[177]3[167]L[178]15
  403. 5380 [137]5700
  404. 5390 [139]PR[177]3[167]L[178]15
  405. 5395 [137]5700
  406. 5405 [139][187](1)[177].5[167][153]"DEFLEFT$U-MAN, YOU WILL SURRENDER, OR DIE!"
  407. 5406 [139]PL[178]14[167][153]"SYSLEFT$ELP ME!  RIGHT$'M IN THE COMPUTER ROOM!"
  408. 5407 [139]PR[177]3[167]L[178]15
  409. 5410 [137]5700
  410. 5412 [139]TR[177]0[167]5420
  411. 5413 [139][187](1)[177].4[175]A1[179]3[175]A1[177]0[167]5418
  412. 5416 [139]A1[177]0[175]A1[179]3[175]IT[178]0[167]IT[178][181]([187](1)[172]6)[170]3:[153]"(null)VAL(null)ASC-STR$VAL(null)(null)(null)(null)LEN(null) RIGHT$(null)"IT"(null)(null)(null)(null)(null).
  413. 5417 IFIT>0THEN5420
  414. 5418 IFA1>0ANDA1<5THENPRINT"[150][205]AYDAY, MAYDAY! [194]ASE UNDER ASSAULT.     [210]EQUEST ";
  415. 5419 IFA1>0ANDA1<5THENPRINT"REINFORCEMENTS.":R1=R1+1:TR=INT(RND(1)*20)+(R1*3)
  416. 5420 PR=INT(RND(1)*7)+1:IFPR=1THENL=16
  417. 5425 IFPR=2THENL=6
  418. 5430 IFPR=3THENL=13
  419. 5435 IFPR=4THENL=14
  420. 5440 IFPR=5THENL=9
  421. 5443 IFPR=7THENL=12
  422. 5445 IFPR=6THENL=21
  423. 5450 GOTO5700
  424. 5460 IFPR=1THENL=4
  425. 5465 IFPR=2THENL=15
  426. 5470 IFPR=3THENL=18
  427. 5475 IFPR=4THENL=17
  428. 5480 GOTO5700
  429. 5487 IFIT>0ANDS1=0THENS1=1:L(I)=0:A1=A1-1:PRINT"[159][211][200][213][212][212][204][197] #1 [204][193][213][206][195][200][197][196]":GOTO5703
  430. 5490 IFPR<4THENL=16
  431. 5495 GOTO5700
  432. 5505 IFPR<3THENL=16
  433. 5510 IFPR>4THENL=19
  434. 5515 GOTO5700
  435. 5525 IFPR<3THENL=18
  436. 5530 IFPR>4THENL=21
  437. 5535 GOTO5700
  438. 5545 IFPR<3THENL=21
  439. 5550 IFPR>4THENL=11
  440. 5555 GOTO5700
  441. 5565 IFPR=1THENL=15
  442. 5567 IFPR=2THENL=20
  443. 5568 IFPR=3THENL=23
  444. 5570 IFPR=4THENL=24
  445. 5572 IFPR=5THENL=22
  446. 5574 IFPR=6THENL=19
  447. 5575 GOTO5700
  448. 5578 IFPR<4THENL=21
  449. 5580 GOTO5700
  450. 5584 IFPR<4THENL=21
  451. 5586 GOTO5700
  452. 5590 IFPR>3THENL=21
  453. 5700 L(I)=L:IFL=PTHENBU=BU+1
  454. 5701 IFPF<>1THENPL=L(1)
  455. 5702 NEXT:IFPL=PTHENPRINT"[217]OU SEE THE PRISONER!"
  456. 5703 IFBU<1THENRETURN
  457. 5704 IFBU>1THENPRINT"[217]OU SEE"BU"ALIENS!"
  458. 5705 IFBU=1THENPRINT"[217]OU SEE AN ALIEN!"
  459. 5706 IFH>0THENPRINT"[217]OU WEREN'T SEEN."
  460. 5707 IFH>0THENPRINT"[196]O YOU ATTACK ANYWAY?":GOSUB61000:IFA$="N"THENRETURN
  461. 5710 GOTO6000
  462. 6000 PRINT"[215]ANT TO EVADE (Y/N)"
  463. 6010 GOSUB61000
  464. 6020 IFA$="Y"ANDRND(1)>.5THENPRINT"[217]OU ESCAPED!":RETURN
  465. 6022 IFA$="Y"THENPRINT"[217]OU CAN'T ESCAPE!"
  466. 6025 IFPL=PTHENPL=0:PF=1
  467. 6030 PRINT"[195]OMBAT!"
  468. 6035 H=0:POKESO+5,136:POKESO+6,24
  469. 6040 FORK=1TOBU
  470. 6050 GOSUB61060
  471. 6060 IFPR>4THENPRINT"[207]W! "
  472. 6063 IFPR>4THENPOKESO+1,253:POKESO,46:POKESO+4,17:FORJ=1TO20:NEXTJ:POKESO+4,16
  473. 6065 IFPR<5THENPRINT"[201]T MISSED! "
  474. 6070 IFPR>4THENGOSUB61060:WP=WP-PR
  475. 6080 NEXTK
  476. 6083 IFWP>4ANDWP<11THENPRINT"[158]++[217]OU ARE BLEEDING++"
  477. 6085 IFWP>0ANDWP<5THENPRINT"++[217]OU ARE BADLY BLEEDING++"
  478. 6090 IFWP<1THENPRINT"[217]OU'VE BEEN KILLED!":SC=SC-1000:GOTO50105
  479. 6095 IFLC>0THENPRINT"[218]AP!":POKESO+1,36:POKESO,85:POKESO+4,65:FORM=1TO10:NEXTM
  480. 6096 IFLC>0THENPOKESO+4,64
  481. 6097 IFLC<1THENPRINT"[200]AND TO CLAW COMBAT!":KI=4
  482. 6100 GOSUB61060:IFPR>KITHENGOSUB7000
  483. 6110 IFLC>0THENLC=LC-1
  484. 6120 IFBU>0THEN6040
  485. 6300 RETURN
  486. 7000 PRINT"[217]OU KILLED ONE!":SC=SC+50:POKESO+4,129:FORM=1TO10:NEXTM:POKESO+4,128
  487. 7005 HI=0:C(P)=C(P)+1
  488. 7010 FORM=1TOA
  489. 7020 IFL(M)<>PTHENNEXTM
  490. 7030 A1=A1-1
  491. 7040 BU=BU-1
  492. 7045 L(M)=0
  493. 7070 IFPF=1THENPRINT"[159][217]OU HAVE THE PRISONER."
  494. 7100 RETURN
  495. 10000 IT=IT-1:FORK=1TO5
  496. 10002 POKESO+5,144:POKESO+6,76:POKESO+1,15:POKESO,75:POKESO+4,33
  497. 10005 FORI=1TO40:NEXT:POKESO+4,32:FORK1=1TO50:NEXTK1:NEXTK
  498. 10010 PRINT"[158]"IT"TURNS TO IMPLOSION!"
  499. 10015 IFIT<1THENPRINT"*******[160][194]OOM! *******":SC=SC+500
  500. 10017 IFIT<1THENPOKESO+4,129:POKESO+1,15:POKESO,75:FORI=1TO300:NEXT:POKESO+4,128
  501. 10020 IFIT<1THENPRINT"[217]OU ARE NOW SUBATOMIC PARTICLES!":SC=SC-1000:GOTO50105
  502. 10100 FORI=1TO500:NEXT
  503. 10200 RETURN
  504. 50000 FORI=1TOA
  505. 50010 IFL(I)=13THEN50200
  506. 50015 NEXT
  507. 50090 IFPF=1THENPRINT"[217]OU HAVE ESCAPED WITH THE PRISONER!"
  508. 50100 IFPF<>1THENPRINT"[217]OU HAVE ESCAPED WITHOUT THE PRISONER!"
  509. 50105 IFPF=1THENSC=SC+500
  510. 50120 IFIT>0THENPRINT"***** [194]OOM! *****":SC=SC+500
  511. 50125 IFIT>0THENPRINT"[217]OU DESTROYED THE ENEMY BASE!"
  512. 50127 IFIT>0THENPOKESO+1,15:POKESO,75
  513. 50130 IFIT>0THENPOKESO+5,155:POKESO+6,76:POKESO+4,129:FORI=1TO300:NEXT
  514. 50135 IFIT>0THENPOKESO+4,128
  515. 50140 IFA1=0THENSC=SC+A
  516. 50150 SC=SC+1000-TP+(R1*100):PRINT"[217]OUR SCORE IS:"SC
  517. 50158 GOSUB50600
  518. 50160 INPUT"[215]ANT TO PLAY AGAIN";A$:IFLEFT$(A$,1)="Y"THENRUN
  519. 50190 END
  520. 50200 PRINT"[212]HERE IS AN ALIEN MANNING THE LASER!"
  521. 50210 FORI=1TO4
  522. 50215 POKESO+1,51:POKESO,97:POKESO+4,129:FORJ=1TO50:NEXTJ:POKESO+4,128
  523. 50220 GOSUB61060:IFPR>5THENPRINT"[203]A-BOOOM!":SC=SC-1000
  524. 50223 IFPR>5THENPOKESO+6,45
  525. 50225 IFPR>5THENPOKESO+1,51:POKESO,97:POKESO+4,129:FORJ=1TO90:NEXT:POKESO+4,128
  526. 50230 IFPR<6THENPRINT"[194]OOOM!"
  527. 50240 IFPR>5THENPRINT"[217]OUR SHIP WAS DESTROYED!":SC=SC-700:GOTO50105
  528. 50250 FORJ=1TO100:NEXTJ:NEXTI
  529. 50260 GOTO50090
  530. 50500 END
  531. 50600 OPEN2,8,2,"0:HIGH SCORES,S,R"
  532. 50610 FORI=1TO10
  533. 50620 INPUT#2,A$(I)
  534. 50625 INPUT#2,A(I)
  535. 50630 NEXT
  536. 50640 CLOSE2
  537. 50680 IFA(1)=0THENRETURN
  538. 50690 FORI=1TO10
  539. 50700 IFSC>=A(I)THEN50720
  540. 50710 NEXT:GOTO50750
  541. 50720 PRINT"[217]OU'RE SCORE IS RANKED NUMBER"I"!"
  542. 50725 INPUT"[208]RINT YOUR NAME (UP TO 20 CHARACTERS)";N$
  543. 50730 IFLEN(N$)>20ORLEN(N$)<1THEN50725
  544. 50735 GOSUB50910:A$(I)=N$:A(I)=SC
  545. 50740 OPEN2,8,2,"@0:HIGH SCORES,S,W"
  546. 50743 FORJ=1TO10
  547. 50745 PRINT#2,A$(J)
  548. 50747 PRINT#2,A(J)
  549. 50748 NEXT
  550. 50749 CLOSE2
  551. 50750 OPEN2,8,2,"0:HIGH SCORES,S,R"
  552. 50755 FORI=1TO10
  553. 50760 INPUT#2,A$(I)
  554. 50763 INPUT#2,A(I)
  555. 50765 NEXT
  556. 50770 CLOSE2
  557. 50775 PRINT"[158][200][201][199][200] [211][195][207][210][197][211]:"
  558. 50780 FORI=1TO10
  559. 50785 PRINTA(I),"- "A$(I)
  560. 50790 NEXT:PRINT""
  561. 50800 RETURN
  562. 50910 FORJ=10TOISTEP-1
  563. 50920 A$(J+1)=A$(J):A(J+1)=A(J)
  564. 50930 NEXT
  565. 50990 RETURN
  566. 59000 INPUT"[206]EED INSTRUCTIONS";A$
  567. 59010 IFLEFT$(A$,1)="N"THENRETURN
  568. 59020 PRINT"[147]"
  569. 59030 PRINT"[210]ESCUE ON THE [195]ENTAURI IS A TEXT BASED  GAME IN WHICH YOUR MISSION IS TO"
  570. 59040 PRINT"RESCUE A CAPTIVE ON A SPACE STATION.    [217]OU PLAY BY ENTERING ONE LETTER"
  571. 59050 PRINT"COMMANDS.  [215]HEN YOU ENTER AN AREA YOU   MAY GET A DESCRIPTION LIKE THIS:
  572. 59060 [153]"(null)(null)(null) ATN(null)VALCLOSERIGHT$(null)CLOSE(null)LEFT$VAL PEEKATN(null)LEFT$(null)(null)(null)(null).  VAL(null)RIGHT$(null)(null): SYS(null). SYSVAL.  SYSASC(null)(null)(null)LEFT$CLOSE(null)(null)RIGHT$(null)VAL(null)."
  573. 59065 [153]"RIGHT$N THIS EXAMPLE YOU CAN HIT SYS(null) TO GO (null)ORTH, OR SYSVAL TO GO VALAST, OR "
  574. 59070 [153]"SYSASC TO FLUSH THE TOILET."
  575. 59080 [153]"LENOMMANDS ARE ALWAYS COLORED IN YELLOW.  (null)HERE IS ONE COMMAND THAT CAN"
  576. 59085 [153]"BE USED IN ALL ROOMS THAT IS THE SYSLEFT$ COMMAND TO HIDE YOURSELF."
  577. 59090 [153]"LEFT$IDING DOESN'T ALWAYS HELP BUT IT SURE  HELPS WHEN YOUR LASER ENERGY IS"
  578. 59095 [153]"RUNNING LOW."
  579. 59100 [133]"LEFT$RIGHT$(null) <(null)VAL(null)(null)(null)(null)> ASC(null)(null)CLOSE(null)(null)(null)VAL";A$
  580. 59110 [153]"LOAD"
  581. 59120 [153]"(null)CORING IS SIMPLE."
  582. 59130 [153]"(null)OU LOSE POINTS FOR DYING AND YOU GAIN  POINTS FOR BLASTING ALIENS."
  583. 59140 [153]"(null)OU ALSO GET POINT FOR:"
  584. 59150 [153]"(null)AVING THE PRISONER AND ESCAPING."
  585. 59160 [153]"(null)AKING OVER THE SPACE STATION."
  586. 59170 [153]"PEEKLOWING UP THE SPACE STATION."
  587. 59180 [153]:[153]"LEFT$RIGHT$(null)(null)(null):"
  588. 59190 [153]"(null)HE SICK BAY IS A GREAT PLACE TO GO IF  YOU GET SHOT."
  589. 59200 [153]"LENYCLE THE AIRLOCKS OFTEN, YOU NEVER KNOWWHO COULD BE IN THEM."
  590. 59205 [153]"(null)HE PRISONER IS ALWAYS GUARDED AND BEINGMOVED FROM ROOM TO ROOM."
  591. 59207 [153]"(null)END COMMENTS TO STR$EVIL STR$OG2."
  592. 59210 [133]"LEFT$RIGHT$(null)CLOSE<(null)VAL(null)(null)(null)(null)> ASC(null)(null) (null)(null)(null)VAL";$
  593. 60011 [151]SO[170]24,15:[151]54273,34:[151]54272,75:[151]54277,4:[151]54278,4
  594. 60015 [153]"LOADVALARTH TO SPACESHIP (null)EBULA:"
  595. 60020 A$[178]"(null)HE (null)UDE-DE-MANN EMPIRE HAS CAPTURED OURAMBASSADOR."
  596. 60025 [141]62000
  597. 60030 A$[178]"(null)OUR MISSION IS TO BEAM DOWN TO THEIR BASE AND RESCUE HIM, ALIVE."
  598. 60035 [141]62000
  599. 60036 [153]
  600. 60040 [153]"STR$O YOU ACCEPT";:[133]A$:[139][200](A$,1)[178]"N"[167][137]63000
  601. 60900 [142]
  602. 61000 [133]"(null)RDERS";A$
  603. 61005 A$[178][200](A$,1)
  604. 61010 [142]
  605. 61060 PR[178][181]([187](1)[172]6)[170]1
  606. 61070 [142]
  607. 62000 [129]I[178]1[164][195](A$):[151]54276,129
  608. 62005 [153][202](A$,I,1);
  609. 62010 [129]K[178]1[164]100:[130]:[151]54276,128
  610. 62020 [130]:[142]
  611. 63000 A$[178]"LENHICKEN!"
  612. 63005 [153]"LOAD":[129]I[178]1[164]9:[153]:[130]:[153][163]14);:[141]62000:[128]
  613.